inherited fmAddEditSkladDoc: TfmAddEditSkladDoc
  Left = 505
  Top = 238
  Width = 1036
  Height = 805
  Caption = #1060#1086#1088#1084#1072#1083#1080#1079#1072#1094#1080#1103
  Constraints.MinHeight = 805
  Constraints.MinWidth = 1036
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel [0]
    Left = 176
    Top = 95
    Width = 93
    Height = 13
    Caption = #1048#1089#1090#1086#1095#1085#1080#1082' '#1090#1086#1074#1072#1088#1072'*'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  inherited sbBottom: TStatusBar
    Top = 751
    Width = 1028
  end
  inherited Panel1: TPanel
    Width = 1028
    inherited BitBtn1: TBitBtn
      Left = 842
    end
    inherited BitBtn2: TBitBtn
      Left = 930
    end
  end
  object Panel3: TPanel [3]
    Left = 0
    Top = 45
    Width = 1028
    Height = 396
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object Label1: TLabel
      Left = 11
      Top = 0
      Width = 32
      Height = 13
      Caption = #1044#1072#1090#1072'*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 11
      Top = 47
      Width = 104
      Height = 13
      Caption = #1055#1077#1088#1077#1076#1072#1083' ('#1092#1080#1079#1083#1080#1094#1086')*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 8
      Top = 375
      Width = 190
      Height = 13
      Caption = '* - '#1086#1073#1103#1079#1072#1090#1077#1083#1100#1085#1099#1077' '#1082' '#1079#1072#1087#1086#1083#1085#1077#1085#1080#1102' '#1087#1086#1083#1103
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 832
      Top = 7
      Width = 67
      Height = 13
      Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 11
      Top = 103
      Width = 113
      Height = 13
      Caption = #1055#1086#1089#1090#1072#1074#1097#1080#1082' ('#1102#1088#1083#1080#1094#1086')*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 371
      Top = 95
      Width = 18
      Height = 13
      Caption = #1080#1083#1080
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object eSDATE: TcxDBDateEdit
      Left = 11
      Top = 18
      DataBinding.DataField = 'SDATE'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DateButtons = [btnClear, btnToday]
      Properties.InputKind = ikMask
      Properties.SaveTime = False
      Properties.ShowTime = False
      Properties.WeekNumbers = True
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = 'Office2007Silver'
      Style.Shadow = False
      Style.TextStyle = []
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Silver'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Silver'
      StyleHot.LookAndFeel.SkinName = 'Office2007Silver'
      TabOrder = 0
      Width = 151
    end
    object cxDBMemo1: TcxDBMemo
      Left = 832
      Top = 24
      DataBinding.DataField = 'SNOTE'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -12
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.LookAndFeel.SkinName = 'Office2007Silver'
      Style.Shadow = False
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Silver'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Silver'
      StyleHot.LookAndFeel.SkinName = 'Office2007Silver'
      TabOrder = 1
      Height = 337
      Width = 183
    end
    object bePPID_JL: TcxButtonEdit
      Left = 11
      Top = 124
      ParentFont = False
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.ReadOnly = True
      Properties.OnButtonClick = bePPID_JLPropertiesButtonClick
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = 'Office2007Black'
      Style.Shadow = False
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Black'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Black'
      StyleHot.LookAndFeel.SkinName = 'Office2007Black'
      TabOrder = 2
      Width = 809
    end
    object lcbPeopleSource: TcxLookupComboBox
      Left = 11
      Top = 64
      ParentFont = False
      Properties.DropDownRows = 15
      Properties.DropDownSizeable = True
      Properties.KeyFieldNames = 'PID'
      Properties.ListColumns = <
        item
          Width = 150
          FieldName = 'PP'
        end
        item
          Width = 150
          FieldName = 'SDNAME'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = dsPPID
      Properties.OnCloseUp = lcbPeopleSourcePropertiesCloseUp
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.LookAndFeel.SkinName = 'Office2007Silver'
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Silver'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Silver'
      StyleHot.LookAndFeel.SkinName = 'Office2007Silver'
      TabOrder = 3
      OnMouseDown = lcbPeopleSourceMouseDown
      Width = 809
    end
    object cbSpisanie: TcxDBCheckBox
      Left = 11
      Top = 224
      Caption = #1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077' '#1090#1086#1074#1072#1088#1072'?'
      DataBinding.DataField = 'SISSPISANIE'
      DataBinding.DataSource = dlgDS
      Properties.NullStyle = nssUnchecked
      Properties.ValueChecked = 1
      Properties.ValueUnchecked = 0
      Style.LookAndFeel.SkinName = 'Office2007Black'
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Black'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Black'
      StyleHot.LookAndFeel.SkinName = 'Office2007Black'
      TabOrder = 4
      OnClick = cbSpisanieClick
      Width = 129
    end
    object Panel_Prinyal: TPanel
      Left = 3
      Top = 168
      Width = 825
      Height = 57
      BevelOuter = bvNone
      TabOrder = 5
      object Label2: TLabel
        Left = 8
        Top = 4
        Width = 97
        Height = 13
        Caption = #1055#1088#1080#1085#1103#1083' ('#1092#1080#1079#1083#1080#1094#1086')*'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object lcbTargetPeople: TcxLookupComboBox
        Left = 8
        Top = 25
        ParentFont = False
        Properties.DropDownRows = 15
        Properties.DropDownSizeable = True
        Properties.KeyFieldNames = 'PID'
        Properties.ListColumns = <
          item
            Width = 150
            FieldName = 'PP'
          end
          item
            Width = 150
            FieldName = 'SDNAME'
          end>
        Properties.ListOptions.ShowHeader = False
        Properties.ListSource = dsPPID_TO
        Properties.OnCloseUp = lcbTargetPeoplePropertiesCloseUp
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -15
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.LookAndFeel.SkinName = 'Office2007Silver'
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.SkinName = 'Office2007Silver'
        StyleFocused.LookAndFeel.SkinName = 'Office2007Silver'
        StyleHot.LookAndFeel.SkinName = 'Office2007Silver'
        TabOrder = 0
        OnMouseDown = lcbTargetPeopleMouseDown
        Width = 809
      end
    end
    object Panel_Potreblenie: TPanel
      Left = 3
      Top = 248
      Width = 825
      Height = 113
      BevelInner = bvRaised
      BevelOuter = bvNone
      TabOrder = 6
      object Label7: TLabel
        Left = 8
        Top = 4
        Width = 127
        Height = 13
        Caption = #1055#1086#1090#1088#1077#1073#1080#1090#1077#1083#1100' ('#1092#1080#1079#1083#1080#1094#1086')*'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 8
        Top = 60
        Width = 160
        Height = 13
        Caption = #1055#1086#1090#1088#1077#1073#1080#1090#1077#1083#1100'('#1087#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1077')*'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object lcbPotrebitel_fizik: TcxLookupComboBox
        Left = 8
        Top = 25
        ParentFont = False
        Properties.DropDownRows = 15
        Properties.DropDownSizeable = True
        Properties.KeyFieldNames = 'PID'
        Properties.ListColumns = <
          item
            Width = 150
            FieldName = 'PP'
          end
          item
            Width = 150
            FieldName = 'SDNAME'
          end>
        Properties.ListOptions.ShowHeader = False
        Properties.ListSource = dsPPID_TO_Spisanie
        Properties.OnChange = lcbPotrebitel_fizikPropertiesEditValueChanged
        Properties.OnCloseUp = lcbPotrebitel_fizikPropertiesEditValueChanged
        Properties.OnEditValueChanged = lcbPotrebitel_fizikPropertiesEditValueChanged
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -15
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.LookAndFeel.SkinName = 'Office2007Silver'
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.SkinName = 'Office2007Silver'
        StyleFocused.LookAndFeel.SkinName = 'Office2007Silver'
        StyleHot.LookAndFeel.SkinName = 'Office2007Silver'
        TabOrder = 0
        OnMouseDown = lcbTargetPeopleMouseDown
        Width = 809
      end
      object bePodrazdPotrebitel: TcxButtonEdit
        Left = 8
        Top = 81
        ParentFont = False
        Properties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end
          item
            Glyph.Data = {
              F6000000424DF600000000000000760000002800000010000000100000000100
              0400000000008000000000000000000000001000000000000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
              8888888888888888888888808888888888088800088888888888880000888888
              8088888000888888088888880008888008888888800088008888888888000008
              8888888888800088888888888800000888888888800088008888888000088880
              0888880000888888008888000888888888088888888888888888}
            Kind = bkGlyph
          end>
        Properties.ReadOnly = True
        Properties.OnButtonClick = bePodrazdPotrebitelPropertiesButtonClick
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -15
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = [fsBold]
        Style.LookAndFeel.SkinName = 'Office2007Black'
        Style.Shadow = False
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.SkinName = 'Office2007Black'
        StyleFocused.LookAndFeel.SkinName = 'Office2007Black'
        StyleHot.LookAndFeel.SkinName = 'Office2007Black'
        TabOrder = 1
        Width = 809
      end
    end
  end
  object Panel2: TPanel [4]
    Left = 457
    Top = 441
    Width = 571
    Height = 310
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    object PdfViewer1: TPdfViewer
      Left = 0
      Top = 25
      Width = 571
      Height = 285
      Align = alClient
      About = 'Synactis PDF Viewer version 1.0'
      AutoOpen = True
      Copies = 1
      EndPage = 0
      FitMode = vmFitBoxHorz
      LayoutMode = lmDontCare
      PageMode = pmStandard
      ShowPrintDialog = True
      ShowScrollBars = True
      ShowToolBar = False
      ShrinkToMargins = True
      StartPage = 1
    end
    object cxButton1: TcxButton
      Left = 0
      Top = 0
      Width = 571
      Height = 25
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100'/'#1047#1072#1084#1077#1085#1080#1090#1100' '#1082#1086#1087#1080#1102' '#1080#1079' '#1093#1088#1072#1085#1080#1083#1080#1097#1072
      TabOrder = 1
      OnClick = cxButton1Click
      Align = alTop
      LookAndFeel.SkinName = 'Office2007Silver'
    end
  end
  object cxSplitter1: TcxSplitter [5]
    Left = 449
    Top = 441
    Width = 8
    Height = 310
    HotZoneClassName = 'TcxMediaPlayer9Style'
    Control = Panel4
  end
  object Panel4: TPanel [6]
    Left = 0
    Top = 441
    Width = 449
    Height = 310
    Align = alLeft
    BevelOuter = bvNone
    Caption = 'Panel4'
    TabOrder = 9
    object dbgSkladtovar: TcxGrid
      Left = 0
      Top = 26
      Width = 449
      Height = 284
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      LookAndFeel.Kind = lfStandard
      LookAndFeel.SkinName = 'Office2007Silver'
      object tvSkladtovar: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        NavigatorButtons.First.Visible = True
        NavigatorButtons.PriorPage.Visible = True
        NavigatorButtons.Prior.Visible = True
        NavigatorButtons.Next.Visible = True
        NavigatorButtons.NextPage.Visible = True
        NavigatorButtons.Last.Visible = True
        NavigatorButtons.Insert.Visible = False
        NavigatorButtons.Append.Visible = False
        NavigatorButtons.Delete.Visible = False
        NavigatorButtons.Edit.Visible = False
        NavigatorButtons.Post.Visible = False
        NavigatorButtons.Cancel.Visible = False
        NavigatorButtons.Refresh.Visible = False
        NavigatorButtons.SaveBookmark.Visible = False
        NavigatorButtons.GotoBookmark.Enabled = False
        NavigatorButtons.GotoBookmark.Visible = False
        NavigatorButtons.Filter.Visible = False
        FilterBox.CustomizeDialog = False
        FilterBox.Visible = fvNever
        OnCellDblClick = tvSkladtovarCellDblClick
        DataController.DataSource = dsSkladTovar
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <
          item
            Format = '#,###0'
            Kind = skSum
            FieldName = 'RPSSUMMA'
          end>
        DataController.Summary.SummaryGroups = <>
        DataController.Summary.Options = [soNullIgnore]
        OptionsBehavior.CellHints = True
        OptionsBehavior.FocusFirstCellOnNewRecord = True
        OptionsBehavior.IncSearch = True
        OptionsCustomize.ColumnFiltering = False
        OptionsCustomize.ColumnGrouping = False
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsView.NavigatorOffset = 5
        OptionsView.CellAutoHeight = True
        OptionsView.CellTextMaxLineCount = 3
        OptionsView.ColumnAutoWidth = True
        OptionsView.ExpandButtonsForEmptyDetails = False
        OptionsView.Footer = True
        OptionsView.GroupByBox = False
        OptionsView.HeaderEndEllipsis = True
        OptionsView.Indicator = True
        OptionsView.ShowColumnFilterButtons = sfbAlways
        Styles.Content = DMInv.cxData
        Styles.IncSearch = DMInv.cxGreenText
        Styles.Header = DMInv.cxSiniyText
        object tvSkladtovarSTID: TcxGridDBColumn
          Caption = 'ID'
          DataBinding.FieldName = 'STID'
          Width = 20
        end
        object tvSkladtovarTOVAR: TcxGridDBColumn
          Caption = #1058#1086#1074#1072#1088
          DataBinding.FieldName = 'TOVAR'
          Width = 33
        end
        object tvSkladtovarED_IZM: TcxGridDBColumn
          Caption = #1045#1076'. '#1080#1079#1084#1077#1088'.'
          DataBinding.FieldName = 'ED_IZM'
          Width = 31
        end
        object tvSkladtovarSDATEPROIZV: TcxGridDBColumn
          Caption = #1044#1072#1090#1072' '#1080#1079#1075#1086#1090'.'
          DataBinding.FieldName = 'SDATEPROIZV'
          Width = 62
        end
        object tvSkladtovarSDATEGODEN: TcxGridDBColumn
          Caption = #1043#1086#1076#1077#1085' '#1076#1086
          DataBinding.FieldName = 'SDATEGODEN'
          Width = 72
        end
        object tvSkladtovarVESORV: TcxGridDBColumn
          Caption = #1042#1077#1089'/V'
          DataBinding.FieldName = 'VESORV'
          Width = 25
        end
        object tvSkladtovarSTKOL: TcxGridDBColumn
          Caption = #1050#1086#1083#1080#1095'.'
          DataBinding.FieldName = 'STKOL'
          Width = 22
        end
        object tvSkladtovarSTNOTE: TcxGridDBColumn
          Caption = #1050#1086#1084#1084#1077#1085#1090'.'
          DataBinding.FieldName = 'STNOTE'
          Width = 27
        end
        object tvSkladtovarSTUSERENTER: TcxGridDBColumn
          Caption = #1040#1074#1090#1086#1088
          DataBinding.FieldName = 'STUSERENTER'
          Width = 45
        end
        object tvSkladtovarSTTIMEENTER: TcxGridDBColumn
          Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076'.'
          DataBinding.FieldName = 'STTIMEENTER'
          Width = 43
        end
        object tvSkladtovarSTUSEREDIT: TcxGridDBColumn
          Caption = #1056#1077#1076#1072#1082#1090#1086#1088
          DataBinding.FieldName = 'STUSEREDIT'
          Width = 41
        end
        object tvSkladtovarSTTIMEEDIT: TcxGridDBColumn
          Caption = #1044#1072#1090#1072' '#1088#1077#1076#1072#1082#1090'.'
          DataBinding.FieldName = 'STTIMEEDIT'
          Width = 39
        end
      end
      object dbgSkladtovarLevel1: TcxGridLevel
        GridView = tvSkladtovar
      end
    end
    object dxBarDockControl1: TdxBarDockControl
      Left = 0
      Top = 0
      Width = 449
      Height = 26
      Align = dalTop
      BarManager = dxBarManager1
    end
  end
  object dsSkladTovar: TDataSource
    Left = 24
    Top = 400
  end
  object qPPID: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.PID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    SD.SDNAME, d.SDID'
      'FROM PEOPLE P'
      'INNER JOIN DOLJNOST d ON d.PID = P.PID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = d.SDID'
      'WHERE P.PISDELETE IS NULL AND d.DOLISDELETE IS NULL'
      
        'AND CURRENT_DATE BETWEEN D.DOLDATEBEGIN AND COALESCE(d.DOLDATEEN' +
        'D, CURRENT_DATE)'
      'UNION'
      'SELECT FIRST 1 NULL AS PID, NULL AS PP,'
      '    NULL AS SDNAME, NULL AS SDID'
      'FROM PEOPLE P'
      'ORDER BY 2')
    GeneratorField.Field = 'RPID'
    Left = 352
    Top = 29
    object qPPIDPID: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object qPPIDPP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qPPIDSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qPPIDSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"DOLJNOST"."SDID"'
    end
  end
  object dsPPID: TDataSource
    DataSet = qPPID
    Left = 320
    Top = 29
  end
  object dxBarManager1: TdxBarManager
    AllowReset = False
    AlwaysSaveText = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    ImageOptions.Images = DMInv.cxSmallImages
    LookAndFeel.SkinName = 'Office2007Silver'
    NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
    PopupMenuLinks = <>
    UseF10ForMenu = False
    UseSystemFont = True
    Left = 392
    Top = 343
    DockControlHeights = (
      0
      0
      0
      0)
    object dxBarManager1Bar2: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 2'
      CaptionButtons = <>
      DockControl = dxBarDockControl1
      DockedDockControl = dxBarDockControl1
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 551
      FloatTop = 183
      FloatClientWidth = 51
      FloatClientHeight = 44
      ItemLinks = <
        item
          Visible = True
          ItemName = 'bbadd'
        end
        item
          Visible = True
          ItemName = 'bbedit'
        end
        item
          Visible = True
          ItemName = 'bbdel'
        end
        item
          Visible = True
          ItemName = 'dxBarButton5'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarButton1: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 57
    end
    object dxBarButton2: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 41
    end
    object dxBarButton3: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 10
    end
    object bbnewjl: TdxBarButton
      Caption = #1053#1086#1074#1086#1077' '#1102#1088#1083#1080#1094#1086
      Category = 0
      Hint = #1053#1086#1074#1086#1077' '#1102#1088#1083#1080#1094#1086
      Visible = ivNever
      ImageIndex = 40
      PaintStyle = psCaptionGlyph
    end
    object dxBarButton4: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 54
    end
    object bbadd: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 57
      OnClick = bbaddClick
    end
    object bbedit: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
      OnClick = bbeditClick
    end
    object bbdel: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 10
      OnClick = bbdelClick
    end
    object cbShowDoc: TcxBarEditItem
      Caption = #1054#1090#1082#1083#1102#1095#1080#1090#1100' '#1087#1088#1086#1089#1084#1086#1090#1088
      Category = 0
      Hint = #1054#1090#1082#1083#1102#1095#1080#1090#1100' '#1087#1088#1086#1089#1084#1086#1090#1088
      Visible = ivAlways
      ShowCaption = True
      Width = 100
      PropertiesClassName = 'TcxCheckBoxProperties'
      Properties.Alignment = taLeftJustify
      Properties.NullStyle = nssUnchecked
      Properties.ValueChecked = 1
      Properties.ValueUnchecked = 0
      InternalEditValue = 1
    end
    object dxBarButton5: TdxBarButton
      Align = iaRight
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 17
      OnClick = dxBarButton5Click
    end
  end
  object dsPPID_TO: TDataSource
    DataSet = qPPID_TO
    Left = 520
    Top = 29
  end
  object qPPID_TO: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.PID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    SD.SDNAME, d.SDID'
      'FROM PEOPLE P'
      'INNER JOIN DOLJNOST d ON d.PID = P.PID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = d.SDID'
      'WHERE P.PISDELETE IS NULL AND d.DOLISDELETE IS NULL'
      
        'AND CURRENT_DATE BETWEEN D.DOLDATEBEGIN AND COALESCE(d.DOLDATEEN' +
        'D, CURRENT_DATE)'
      'UNION'
      'SELECT FIRST 1 NULL AS PID, NULL AS PP,'
      '    NULL AS SDNAME, NULL AS SDID'
      'FROM PEOPLE P'
      'ORDER BY 2')
    GeneratorField.Field = 'RPID'
    Left = 560
    Top = 29
    object qPPID_TOPID: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object qPPID_TOPP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qPPID_TOSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qPPID_TOSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"DOLJNOST"."SDID"'
    end
  end
  object cxPropertiesStore1: TcxPropertiesStore
    Components = <
      item
        Component = Panel4
        Properties.Strings = (
          'Height'
          'Left'
          'Top'
          'Width')
      end>
    StorageName = #1048#1057' '#1054#1083#1080#1084#1087#1080#1082'_PS_fmAddEditSkladDoc'
    StorageType = stRegistry
    Left = 488
    Top = 312
  end
  object qPP_ID: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT PP.PPID'
      'FROM PERSON_PODOTCH PP'
      'WHERE PP.PP_ID = :guserid AND PP.PPTYPE = :pptype')
    Left = 40
    Top = 149
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'guserid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pptype'
        ParamType = ptUnknown
      end>
    object qPP_IDPPID: TIntegerField
      FieldName = 'PPID'
      Origin = '"PERSON_PODOTCH"."PPID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
  end
  object qPP: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'SELECT PP.*'
      'FROM PERSON_PODOTCH PP'
      'WHERE PP.PPID = -1')
    UpdateObject = quPP
    GeneratorField.Field = 'PPID'
    GeneratorField.Generator = 'GEN_PERSON_PODOTCH_ID'
    Left = 80
    Top = 145
    object qPPPPID: TIntegerField
      FieldName = 'PPID'
      Origin = '"PERSON_PODOTCH"."PPID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qPPPPTYPE: TIntegerField
      FieldName = 'PPTYPE'
      Origin = '"PERSON_PODOTCH"."PPTYPE"'
    end
    object qPPPP_ID: TIntegerField
      FieldName = 'PP_ID'
      Origin = '"PERSON_PODOTCH"."PP_ID"'
    end
  end
  object quPP: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  PPID,'
      '  PPTYPE,'
      '  PP_ID'
      'from PERSON_PODOTCH '
      'where'
      '  PP_ID = :PP_ID and'
      '  PPTYPE = :PPTYPE')
    ModifySQL.Strings = (
      'update PERSON_PODOTCH'
      'set'
      '  PP_ID = :PP_ID,'
      '  PPID = :PPID,'
      '  PPTYPE = :PPTYPE'
      'where'
      '  PP_ID = :OLD_PP_ID and'
      '  PPTYPE = :OLD_PPTYPE')
    InsertSQL.Strings = (
      'insert into PERSON_PODOTCH'
      '  (PP_ID, PPID, PPTYPE)'
      'values'
      '  (:PP_ID, :PPID, :PPTYPE)')
    DeleteSQL.Strings = (
      'delete from PERSON_PODOTCH'
      'where'
      '  PP_ID = :OLD_PP_ID and'
      '  PPTYPE = :OLD_PPTYPE')
    Left = 120
    Top = 145
  end
  object qPersonPodotch: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT PP.*, NULL AS pp_name'
      'FROM PERSON_PODOTCH PP'
      'WHERE PP.PPID = :PPID AND PP.PPTYPE = 4'
      'UNION'
      
        'SELECT PP.*, (COALESCE(SD.SDNAME, JL.JLOPF) || '#39' '#39' || JL.JLEGALN' +
        'AME) AS pp_name'
      'FROM PERSON_PODOTCH PP'
      'INNER JOIN JURLITSA JL ON JL.JLID = PP.PP_ID'
      'LEFT OUTER JOIN SYS_DIC SD ON SD.SDID = JL.JLOPFSDID'
      'WHERE PP.PPID = :PPID AND PP.PPTYPE = 5')
    Left = 40
    Top = 189
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PPID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PPID'
        ParamType = ptUnknown
      end>
    object qPersonPodotchPPID: TIntegerField
      FieldName = 'PPID'
      Origin = '"PERSON_PODOTCH"."PPID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qPersonPodotchPPTYPE: TIntegerField
      FieldName = 'PPTYPE'
      Origin = '"PERSON_PODOTCH"."PPTYPE"'
    end
    object qPersonPodotchPP_ID: TIntegerField
      FieldName = 'PP_ID'
      Origin = '"PERSON_PODOTCH"."PP_ID"'
    end
    object qPersonPodotchPPNUM: TIntegerField
      FieldName = 'PPNUM'
      Origin = '"PERSON_PODOTCH"."PPNUM"'
    end
    object qPersonPodotchPP_NAME: TIBStringField
      FieldName = 'PP_NAME'
      ProviderFlags = []
      Size = 511
    end
  end
  object dsPPID_TO_Spisanie: TDataSource
    DataSet = qPPID_TO_Spisanie
    Left = 520
    Top = 69
  end
  object qPPID_TO_Spisanie: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.PID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    SD.SDNAME, d.SDID'
      'FROM PEOPLE P'
      'INNER JOIN DOLJNOST d ON d.PID = P.PID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = d.SDID'
      'WHERE P.PISDELETE IS NULL AND d.DOLISDELETE IS NULL'
      
        'AND CURRENT_DATE BETWEEN D.DOLDATEBEGIN AND COALESCE(d.DOLDATEEN' +
        'D, CURRENT_DATE)'
      'UNION'
      'SELECT FIRST 1 NULL AS PID, NULL AS PP,'
      '    NULL AS SDNAME, NULL AS SDID'
      'FROM PEOPLE P'
      'ORDER BY 2')
    GeneratorField.Field = 'RPID'
    Left = 560
    Top = 69
    object qPPID_TO_SpisaniePID: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object qPPID_TO_SpisaniePP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qPPID_TO_SpisanieSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qPPID_TO_SpisanieSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"DOLJNOST"."SDID"'
    end
  end
end
